home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / utility / 579 / program / procdure / palette.lst < prev    next >
Encoding:
File List  |  1995-02-06  |  278 b   |  15 lines
  1. PROCEDURE palette
  2.   LOCAL xa%
  3.   IF DIM?(palette|())
  4.     FOR xa%=0 TO 31
  5.       SPOKE &HFFFF8240+xa%,palette|(xa%)
  6.     NEXT xa%
  7.     ERASE palette|()
  8.   ELSE
  9.     DIM palette|(31)
  10.     FOR xa%=0 TO 31
  11.       palette|(xa%)=PEEK(&HFFFF8240+xa%)
  12.     NEXT xa%
  13.   ENDIF
  14. RETURN
  15.